Unit
lmdstdcS

Declaration

TLMDProgressPaintEvent = procedure(Sender:TObject; aCanvas:TCanvas; dest, notDest, aRect:TRect) of object;